home *** CD-ROM | disk | FTP | other *** search
/ Machine Hunter - Digital … Kit (Europe) (En,Fr,De) / Machine Hunter - Digital Press Kit (Europe) (En,Fr,De).bin / mac / EIDOS.dir / 00158_Script_158 < prev    next >
Text File  |  1997-05-14  |  602b  |  25 lines
  1. on xtracopy
  2.   
  3.   
  4.   if the platform contains   "Mac" then
  5.     
  6.   maccopy
  7.   else
  8.     
  9.     openXLib "Xtras\filecopy"  -- custom xtra
  10.     
  11.     set filename = the pathName&"screens\"& the name of cast the mousecast
  12.     
  13.     if fileName > "" then
  14.       set wFileName = doSaveAsDlg(the pathName&"screens\"& the name of cast the mousecast, "Tiffs@*.tif")
  15.       if wFileName > "" then
  16.        set result = copyFile(wFileName, fileName) -- this is the call that does the copying
  17.       put result
  18.       end if  
  19.     end if
  20.     
  21.     closeXLib "Xtras\filecopy"
  22.     
  23.   end if
  24.   
  25. end xtracopy